home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / VISUALBA / 3CTRLS.ZIP / AWK.FRM next >
Text File  |  1993-10-05  |  3KB  |  118 lines
  1. VERSION 2.00
  2. Begin Form Awk 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "AWKsome Demo"
  5.    Height          =   4245
  6.    Left            =   1155
  7.    LinkTopic       =   "Form1"
  8.    ScaleHeight     =   3780
  9.    ScaleWidth      =   7485
  10.    Top             =   1230
  11.    Width           =   7665
  12.    Begin VideoSoftAwk VSAwk 
  13.       Case            =   2  'to lower
  14.       FS              =   " ="
  15.       Left            =   270
  16.       Top             =   2655
  17.    End
  18.    Begin VideoSoftElastic VSElastic1 
  19.       Align           =   5  'Fill Container
  20.       AutoSizeChildren=   4  'Uneven Vertical
  21.       BackColor       =   &H00C0C0C0&
  22.       BevelOuter      =   1  'Raised
  23.       BevelOuterWidth =   1
  24.       Height          =   3270
  25.       Left            =   0
  26.       TabIndex        =   0
  27.       Top             =   0
  28.       Width           =   7485
  29.       Begin ListBox List1 
  30.          Height          =   2370
  31.          Left            =   90
  32.          TabIndex        =   1
  33.          Top             =   810
  34.          Width           =   7305
  35.       End
  36.       Begin VideoSoftElastic VSElastic2 
  37.          AutoSizeChildren=   1  'Even Horizontal
  38.          BackColor       =   &H00C0C0C0&
  39.          BevelOuter      =   0  'None
  40.          Height          =   630
  41.          Left            =   90
  42.          TabIndex        =   3
  43.          Top             =   90
  44.          Width           =   7305
  45.          Begin CommandButton Command1 
  46.             Caption         =   "Get AUTOEXEC.BAT"
  47.             Height          =   450
  48.             Index           =   1
  49.             Left            =   3705
  50.             TabIndex        =   5
  51.             Top             =   90
  52.             Width           =   3510
  53.          End
  54.          Begin CommandButton Command1 
  55.             Caption         =   "Get CONFIG.SYS"
  56.             Height          =   450
  57.             Index           =   0
  58.             Left            =   90
  59.             TabIndex        =   4
  60.             Top             =   90
  61.             Width           =   3525
  62.          End
  63.       End
  64.    End
  65.    Begin VideoSoftElastic StatusBar 
  66.       Align           =   2  'Align Bottom
  67.       BackColor       =   &H00C0C0C0&
  68.       BevelOuter      =   1  'Raised
  69.       BevelOuterWidth =   1
  70.       CaptionPos      =   4  'Center Center
  71.       FloodColor      =   &H0080FFFF&
  72.       FloodDirection  =   1  'Right
  73.       Height          =   510
  74.       Left            =   0
  75.       TabIndex        =   2
  76.       Top             =   3270
  77.       Width           =   7485
  78.    End
  79. End
  80. Option Explicit
  81. Const Blank = 0
  82.  
  83. Sub Command1_Click (Index%)
  84.   List1.Clear
  85.  
  86.   Select Case Index
  87.     Case 0
  88.           vsawk.FileName = "c:\config.sys"
  89.     Case 1
  90.           vsawk.FileName = "c:\autoexec.bat"
  91.   End Select
  92.  
  93.   ' start parsing
  94.   vsawk.Action = 0
  95. End Sub
  96.  
  97. Sub VSAwk_Begin ()
  98.   mousepointer = 11
  99. End Sub
  100.  
  101. Sub VSAwk_End ()
  102.   StatusBar = "FILE: " & vsawk.FileName & "    LINES: " & vsawk.RN
  103.   mousepointer = 0
  104.   StatusBar.FloodPercent = 0
  105. End Sub
  106.  
  107. Sub VSAwk_Scan ()
  108.  
  109.   StatusBar.FloodPercent = vsawk.PercentDone
  110.   StatusBar = Format(vsawk.PercentDone) & " %"
  111.   StatusBar.Refresh
  112.  
  113.   'add scanned line to the list
  114.   List1.AddItem vsawk.F(0)
  115.  
  116. End Sub
  117.  
  118.